home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / text.d < prev    next >
Encoding:
Text File  |  1989-10-12  |  701 b   |  24 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'text "Text.h")
  4.  
  5. (define-widget-class 'text 'xmTextWidgetClass
  6.   '(pendingDelete PendingDelete Boolean)
  7.   '(selectThreshold SelectThreshold Int)
  8.   '(blinkRate BlinkRate Int)
  9.   '(columns Columns Short)
  10.   '(cursorPositionVisible CursorPositionVisible Boolean)
  11.   '(fontList FontList FontList)
  12.   '(resizeHeight ResizeHeight Boolean)
  13.   '(resizeWidth ResizeWidth Boolean)
  14.   '(rows Rows Short)
  15.   '(wordWrap WordWrap Boolean))
  16.  
  17. (define-callback 'text 'activateCallback     #t)
  18. (define-callback 'text 'valueChangedCallback #t)
  19.  
  20. (define text-callback->scheme
  21. "   return Get_Any_CB ((XmAnyCallbackStruct *)x);")
  22.  
  23. (c->scheme 'text-valueChangedCallback text-callback->scheme)
  24.